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Macros to generate TPARSE state tables 
Version: *v04-000' 


Lee RRR AR AREER AA AARE AERA REE RATER HRER Hee ee eee eee eeeeeere 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


:* THIS SOFTWARE +4 ent eee UNDER A LICENSE AND MAY BE USED AND sortee 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH of ican aa THE 
'* INCLUSION OF THE ABOVE gpd Ld NOTICE. THIS ARE OR OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWIS OMADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
™ SORPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


it DIGITAL ASSUMES NO RESPONS Bl 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH 


L 

S NOT SUPPLIED BY DIGITAL. 

i eee ee ee eeeeeeeeeReeeeeeeeeeeeedeeeeeeeeeeeeneeeeeeeeteeeeeeereeeereeeeeeee 
le¢ 

' 

FACILITY: System Library 

i ABSTRACT: 


These macros are used to generate the state table used with TPARSE. 
See the TPARSE module for a complete description. 


i ENVIRONMENT: 
Native mode VAX processor; no operating system facilities are used. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 30-Aug-1977 16:33 
i MODIFIED BY: 


v03-002 ACG0392 Andrew C. Goldstein, 19-Jan-1984 21:56 
Add filespec token type 


v03-001 ACG0345 Andrew C. Goldstein 29-Jul-1983 16:00 
Add UIC and identifier tokens; add PSECT argument 


v0006 ACG0048 Andrew C. Goldstein, 20-Jun-1979 14:17 
Change state table PSECTs to EXE 
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voooS  AcG0043 Andrew C. Goldstein, 23-May-1979 21:20 
Change state table PSECTs to PIC 
v0O004 ACG0024 Andrew C. Goldstein, 27-Feb-1979 16:42 


Fix PSECT names for new RTL standards 


Andrew C. Goldstein, 4-O0ct-1977 16:35 
x0002 = Add action routine parameter; allow for keyword uniqueness testing. 


Andrew C. Goldstein, 22-Feb-1978 i 
x0003 = State table format changes (BL5) 
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i Declare the various Literals and compile time constants used to generate 
; state tables. 


COMPILETIME 
TPASK_KEYNUMB == =1, 
TPASK-KEYFLAG = 0, 
TPASK_SUBEXPR = QO, 
TPASK-TYPEVAL = 0, 
TPASK_F INAL = 0; 
LITERAL TPASKTMAXKEY = 220; 
LITERAL 
TPASM_CODEFLAG = $3 . ! type is a keyword, special, etc 
TPASM_EXTRAFLAG = 51 ' extra flags byte present 
TPASM_LASTFLAG = 1 é, ! last transition in state 
TPASM_EXTFLAG = 2048, ! subexpression pointer present 
TPASM_TRANFLAG = 4096, ! explicit target present 
TPASM_MASKFLAG = ARS FI } mask longword present 
TPASM_ADDRFLAG = 1 ° ! data address present 
TPASM_ACTFLAG = 3 £98. ' action routine present 
TPASM_PARMFLAG = 65536; ' action routine parameter present 
LITERAL 
hae st = 236, } aeyuere base type 
TPASFAIL = 784 i exit with failure 
TPAS-FILESPEC = 490, i filespec string 
= : H strin 
TPA$_IDENT = 492, ! general identifier string 
TPAS_ANY = 493, ! any ornate character 
TPAS_ALPHA = 494, ! any alphabetic character 
DIGI = 495, ' any numeric character 
TPAS_STRING = 496, ! any alphanumeric string 
TPA$_ SYMBOL = 497, ! any symbol constituent set string 
Lay oT = $38. } any 8 cing er spaces and tabs 
= ° ! decimal number 
TPA$_OCTAL = 500, ' octal number 
TPAS_HEX = 501, ! hexadecimal number 
TPASTEOS = 808; i nd of string 
TPAS-SUBEXPR = 504; i subexpression 


! The mecro SINIT_STATE is used to initialize the table generator macros. 
It also defines labels for the state tadle entry point and the keyword table, 
and defines the symbols of ali the special token types. 


MACRO 


SINIT_STATE (START STATE, KEY TABLE, PSECT_ARG) = 
“ ZASSIGN (TPA NUMB “1) 


$K_KEY 
ZIF XDECLARED TXQUOTE £QUOTE TPASPSECT STATE) 
ZTHEN UNDECLARE ZQUOTE ZQUOTE TPASPSECT STATE; 2F1 
ZIF ZDECLARED (ZQUOTE ZQUOTE TPASPSECT REYO) 
ZTHEN UNDECLARE ZQUOTE ZQUOTE TPASPSECT KEYO; ZFI 
ZIF ZDECLARED (QUOTE ZQUOTE TPASPSECT_REY1) 


TPAMAC .REQ; 1 16-SEP-1984 16:58:49.18 Page 4 


ZTHEN UNDECLARE ZQUOTE ZQUOTE TPASPSECT_KEY1; 2FI 
MACRO pete STATE ge ateat = 
= 


08 

ZIF-ZNULL (PSECT_ARG) 
THEN _LIBSSTAT 
Fise ZNAME (PSECT_ARG, ‘_STATE') 
RITE, SHARE, PIC, EXECUTE, ALIGN (1)) 
EYO (OWN_GLOBAL) = 
GLOBAL = 
ZNULL (PSECT ARG) 

LIBSKEYOS 
E ZNAME (PSECT_ARG, '_KEYO') 
RITE, SHARE, PIC, EXECUTE, ALIGN (1)) 
EY1 (OWN_GLOBAL) = 
-GLOBAL = 
ZNULL (PSECT_ARG) 
EN _LIBSKEY1$ 
SE ZNAME (PSECT_ARG, '_KEY1') 


RITE, SHARE, PIC, EXECUTE, ALIGN (1)) 


eS 


ZQUOTE 
MACRO peoeeee 


Zam 
ie ee? 2! 
om 

4 


age 


ZQUOTE 
MACRO TPASPSEC 
PSECT 


zZzmrn— 

\ a yTPx 
a 
aR 


ae re 
Gr** SPE sEDEOS —t* + —~ BEDE TEFL OE —t*+ —~ DEDEDE 


Favors 
TPASPSECT_KEYO (GL 

TPASPSECT-KEYO ( 3 

GLOBAL KEY_TABLE : VECTOR (0); 


SWITCHES UNAMES 
LIF BDECLARED (TPASKEYO) XTHEN UNDECLARE TPASKEYO; %F1 
OWN TPASKEYO : VECTOR (0); 


<8 
rc 
~~ 
s 


SWITCHES NOUNAMES; 

TPASPSECT STATE (GLOBAL); 

GLOBAL START_STATE : VECTOR (0); 
PSECT GLOBAL = S$GLOBALS; 

PSECT OWN = SOWNS; 


The SSTATE macro is the main level macro. Each call to S$STATE generates 
one state in the state table. The first argument, if not null, is a label 
to be applied to this state. Each of the remaining n arguments is a 
transition to another state, consisting of a list of transition elements: 
the token type, the target state, address of the user's action routine 

a bitmask, and an address in which to store the mask. ALL of the transition 
elements except the token type are optional. 


= 
o 
a] 
°o 


SSTATE (STATE LABEL) = 
TPASPSECT STATE (OWN); 
Z1F NOT ZRU 


) 
IGN (0) VECTOR (0); 
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TPASPSECT_KEY1 (OWN); 
SWITCHES ONAMES; 

ON TPA KEVEILL VECTOR C1,B8YTEJ ALIGN (0) INITIAL (BYTE (255)); 
UNDECLARE TPASKEYFILL; 


2FI 
— OWN = SOWNS; 
' 
: The macro SSTATE_ITEMS is an iterative macro used to generate the transitions 
; in a state. 
MACRO 
SSTATE_ITEMS Sygret & = 
TPASRARE TRAN’ Si Ina. ZNULL (XZREMAINING) ) 


TRAN TTPASK_FINAL, %REMOVE (ELEMENT) ) 
SWITCHES” NOUNAME S ; 


The macro TPASMAKE_TRAN is called to generate each transition entry in a state. 
Its arguments include the final flag (set to 1 for the last transition in 
a@ state) followed by the elements of the transition. 


MACRO 


TPASMAKE Hey (TPASK cone yyre TARGET, ACTION, MASK, ADDR, PARAM) = 


ZASSIGN ( S 

riP sie PASIFSUBERER (TYPE) 

XTHEN ZASSIGN (TPASK_TYPEVAL, TPAS_SUBEXPR) 
ZASSIGN (TPASK~SUBEXPR, 1) 


ZELSE 
aE ae rete (TYPE) 


eassicn (TPASK_KEYNUMB, ng ia 
ZIF TPASK_KEY YNOMB GEQU TPASK_PMAXK 
Bruen TERROR ("Maximum ate = “5 es exceeded’) 


ZIF ZCHARCOUNT (TYPE) GTRU 65535 
ZTHEN ZERROR (‘Keyword Longer than 65535 characters’) 


2FI 
Lalla! | peers (OWN) ; 

pg “VECTOR CO] ALIGN (0); 
TPASPSECT” x Y 


Y : 2 uk INITIAL (TPASKEYSTO - TPASKEYO); 
TPASPSECT kev 


evsten : VECTOR CECHARCOUNT (TPASKEY STRING (TYPE)) + 1 gyte] 
ALIGN (0) INITIAL (BYTE (TPASREY _STRING (TYPE), 25 

yengssee TPASKEY, TPASKEYST, TPASKEYSTO; 

TPA ate 


ATE (OWN); 
ZASS EN (TPABK -TYPEVAL, TPAS_KEYWORD + TPASK_KEYNUMB) 

TAS ASS TON (TPASK~KEYFLAG 
ELSE ZASSIGN (TPASK TT YPEVAL., TYPE) 


aFI 
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OWN TPASTYPE WORD ALIGN (0) INITIAL (TPASK_TYPEVAL | 
+ TPASK $ OTP ReTPASM XTHCAG 
ZIF NOT ZNULL (PARAM) ZTHEN *+TPASM_EXTRAFLAG 2F1 
ZIF NOT NULL (ACTION) LTHEN +TPASM ACTFLAG %F I 
ZIF NOT ENULL (MASK) ZTHEN +TPASM_MASKFLAG 
LIF L (ADDR) 
ZTHEN ZERROR (‘Mask address missing’) ) FI FI 
Z1F NOT INULL CADDR) TTHEN +TPASM_ADDR 
ZIF NOT ZNULL (TARGET) ZTHEN +TPASM OORANFLAG FI 
: TPASK_F INAL*TPASM_LASTFLAG 

UNDE CLARE TPASTYPE; 

ZIF NOT ZNULL (PARAM) 

ZTHEN OWN TPASFLAGS2 : BYTE ALIGN (0) INITIAL (TPASM_PARMFLAG/65536); 

UNDE CLARE TPASFLAGS2; 

iF 1 

ZIF TPASK_SUBEXPR 

XTHEN TPASMAKE_SUB (ZREMOVE (TYPE)) 

uF 1 

ZIF NOT ZNULL (PARAM) 

ZTHEN OWN TPASPARAM : LONG ALIGN (0) INITIAL (PARAM); 

UNDE CLARE TPASPARAM; 

tF 1 

ZIF NOT ZNULL (ACTION) 

ZTHEN OWN PASACTION : LONG ALIGN (0) INITIAL (ACTION-TPASACTION-4); 

UNDE CLARE TPASAC CTION; 

tI 

ZIF NOT ZNULL (ADDR) 

ZTHEN OWN TPASADDR : LONG ALIGN (0) INITIAL (ADDR-TPASADDR-4); 

UNDE CLARE TPASADDR; 

iF I 

Z1F NOT ZNULL (MASK) 

ZTHEN OWN PASMASK : LONG ALIGN (0) INITIAL (MASK); 

UNDE CLARE TPASMASK: 


tI 
ZIF NOT ZNULL (TARGET) 
2TH 


N 
RIF NOT ZDECLARED (TARGET) 
oe FORWARD TARGET : VECTOR [0]; 


OWN TPASTARGET WORD ALIGN (0) {eri ie 

ENTICAL (TARGET, TPAS_E 
te Nt (TARGET, TPAS_F 
ARGET = TPASTARGET = 2 


T) 


KIT 
AIL) 


ew + 


UNDE CLARE TPARTARGET: 
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tFI 
' ; 
! The following macro generates the offset for a subexpression call. 


MACRO 
TPASMAKE SUB (SUBNAME) = 


ZIF NOT ZDECLARED (SUBNAME) 
see FORWARD SUBNAME : VECTOR (0); 
OWN TPASSUBEXP : WORD ALIGN(O) INITIAL (SUBNAME = TPASSUBEXP-2); 
pecans TPASSUBE XP; 
' . 
' The following macro returns 1 if the argument is a weruere where a keyword 
: is defined as an alphanumeric string of two or more characters. 
MACRO 
TPASIFKEYWORD (TYPE) = 
RIDENTICAL (TYPE, ZSTRING (TYPE)) 
AND ZCHARCOUNT (STRING (TYPE)) GTRU 1 
‘ e 
! The following macro returns 1 if the argument is a subexpression call, 
: identified by being enclosed in parentheses. 
MAC 


TPASIFSUBEXPR (TYPE) = 
NOT ZIDENTICAL (TYPE, ZREMOVE (TYPE)) 


i Macros to generate keyword strings. Handles the special string of the form 
‘at’, used to signify a sirgle character keyword. 


MACRO 
TPASKEY_STRING (TYPE) = 
ZIF ZCHARCOQUNT (TYPE) EQL 2 
ZTHEN TPASONE_STRING (ZEXPLODE (TYPE)) 
ZELSE TYPE 
oh 


04% [PMENT CORPORATION 
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